Private Sub CommandButton1_Click()
Sheets("DIARIO").Unprotect "123"
Call BusquedaContinuaM
Sheets("DIARIO").Protect "123"
Call REGRESARMENU
End Sub